home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / sptmbr11.lha / clcs / package.lisp < prev    next >
Text File  |  1992-03-31  |  2KB  |  44 lines
  1. ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: ("CONDITIONS" :USE "LISP" :SHADOW ("BREAK" "ERROR" "CERROR" "WARN" "CHECK-TYPE" "ASSERT" "ETYPECASE" "CTYPECASE" "ECASE" "CCASE")); Base: 10 -*-
  2. ; From arisia.xerox.com:/cl/conditions/cond18.lisp
  3. ;;;
  4. ;;; CONDITIONS
  5. ;;;
  6. ;;; This is a sample implementation. It is not in any way intended as the definition
  7. ;;; of any aspect of the condition system. It is simply an existence proof that the
  8. ;;; condition system can be implemented.
  9. ;;;
  10. ;;; While this written to be "portable", this is not a portable condition system
  11. ;;; in that loading this file will not redefine your condition system. Loading this
  12. ;;; file will define a bunch of functions which work like a condition system. Redefining
  13. ;;; existing condition systems is beyond the goal of this implementation attempt.
  14.  
  15. (IN-PACKAGE "CONDITIONS" :USE '("LISP" #+lucid "LUCID-COMMON-LISP"))
  16.  
  17. #-(or lucid excl genera cmu) 
  18. (SHADOW '(BREAK ERROR CERROR WARN CHECK-TYPE ASSERT ETYPECASE
  19.       CTYPECASE ECASE CCASE))
  20.  
  21. ;;(EXPORT '(;; Shadowed symbols
  22. ;;        BREAK ERROR CERROR WARN CHECK-TYPE ASSERT ETYPECASE
  23. ;;        CTYPECASE ECASE CCASE))
  24.  
  25. (EXPORT '(;; New symbols
  26.       *BREAK-ON-SIGNALS* *DEBUGGER-HOOK* SIGNAL
  27.       HANDLER-CASE HANDLER-BIND IGNORE-ERRORS DEFINE-CONDITION MAKE-CONDITION
  28.       WITH-SIMPLE-RESTART RESTART-CASE RESTART-BIND RESTART-NAME
  29.       RESTART-NAME FIND-RESTART COMPUTE-RESTARTS INVOKE-RESTART
  30.       INVOKE-RESTART-INTERACTIVELY ABORT CONTINUE MUFFLE-WARNING
  31.       STORE-VALUE USE-VALUE INVOKE-DEBUGGER RESTART CONDITION
  32.       WARNING SERIOUS-CONDITION SIMPLE-CONDITION SIMPLE-WARNING SIMPLE-ERROR
  33.       SIMPLE-CONDITION-FORMAT-STRING SIMPLE-CONDITION-FORMAT-ARGUMENTS
  34.       STORAGE-CONDITION STACK-OVERFLOW STORAGE-EXHAUSTED TYPE-ERROR
  35.       TYPE-ERROR-DATUM TYPE-ERROR-EXPECTED-TYPE SIMPLE-TYPE-ERROR
  36.       PROGRAM-ERROR CONTROL-ERROR STREAM-ERROR STREAM-ERROR-STREAM
  37.       END-OF-FILE FILE-ERROR FILE-ERROR-PATHNAME CELL-ERROR
  38.       UNBOUND-VARIABLE UNDEFINED-FUNCTION ARITHMETIC-ERROR
  39.       ARITHMETIC-ERROR-OPERATION ARITHMETIC-ERROR-OPERANDS
  40.       PACKAGE-ERROR PACKAGE-ERROR-PACKAGE
  41.       DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW))
  42.  
  43. (DEFVAR *THIS-PACKAGE* (FIND-PACKAGE "CONDITIONS"))
  44.